← Index
NYTProf Performance Profile   
For ../prof.pl
  Run on Thu Dec 15 15:23:56 2022
Reported on Thu Dec 15 15:27:04 2022

Filename(eval 425)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
StatementsExecuted 17 statements in 126µs
Eval Invoked At/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11112µs91µsType::Tiny::::__ANON__[:16]Type::Tiny::__ANON__[:16]
11110µs10µsType::Tiny::::BEGIN@9.323Type::Tiny::BEGIN@9.323
1117µs26µsType::Tiny::::BEGIN@16.324Type::Tiny::BEGIN@16.324
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1{
221µs my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
311µs my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
4 package Type::Tiny;
5
# spent 91µs (12+79) within Type::Tiny::__ANON__[(eval 425)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]:16] which was called: # once (12µs+79µs) by JSON::Schema::Modern::add_vocabulary at line 177 of Sub/Defer.pm
$$_UNQUOTED = sub {
6 ($_QUOTED,$_UNQUOTED) if 0;
7# BEGIN quote_sub PRELUDE
8package Type::Tiny;
9
# spent 10µs within Type::Tiny::BEGIN@9.323 which was called: # once (10µs+0s) by Sub::Quote::_clean_eval at line 14
BEGIN {
1011µs $^H = 1762;
1111µs ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
1215µs %^H = (
13 );
14119µs110µs}
# spent 10µs making 1 call to Type::Tiny::BEGIN@9.323
15# END quote_sub PRELUDE
161094µs5124µs
# spent 26µs (7+19) within Type::Tiny::BEGIN@16.324 which was called: # once (7µs+19µs) by Sub::Quote::_clean_eval at line 16
do { no warnings "void"; package Type::Tiny; (((do { package Type::Tiny; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }) && (do { local $_ = $_[0]; my $uri = Mojo::URL->new($_); $uri->is_abs && !defined $uri->fragment }))) or Type::Tiny::_failed_check(82, "__ANON__", $_[0], ); $_[0] }; };
# spent 73µs making 1 call to Mojo::URL::new # spent 26µs making 1 call to Type::Tiny::BEGIN@16.324 # spent 19µs making 1 call to warnings::unimport # spent 5µs making 1 call to Mojo::URL::is_abs # spent 1µs making 1 call to Mojo::URL::fragment
17}
1814µs1;
19
20;